Public fileaction As String
Public Const ActionMove = 1
Public Const ActionCopy = 0
Public lngFileSize As Long
Public intLoopCtr As Integer
Public intBufferCount As Integer
Public strInByte As String
Public strFrom_filename As String
Public strTo_filename As String
Public i As Integer, k As Integer

Private Sub cmdClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdClose.Click
    Close()
End Sub

Private Sub cmdCopy_Click(ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles cmdCopy.Click
    Call FileProcess(ActionCopy)
End Sub

Private Sub cmdMove_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdMove.Click
    Call FileProcess(ActionMove)
End Sub

Private Sub cmdSourceFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdSourceFile.Click
    dlgFileSelect.CheckFileExists = True
    dlgFileSelect.ShowDialog()
    txtSourceFile.Text = dlgFileSelect.FileName
End Sub

Private Sub cmdTargetFile_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdTargetFile.Click
    dlgFileSave.OverwritePrompt = True
    dlgFileSave.ShowDialog()
    txtTargetFile.Text = dlgFileSave.FileName
End Sub
